home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / pagebar / 00025.ls < prev    next >
Encoding:
Text File  |  1995-04-04  |  790 b   |  27 lines
  1. on exitFrame
  2.   global ragman, ragid, stay
  3.   go("choices")
  4.   if not (the soundBusy of 1) then
  5.     repeat with xxx = 0 to 10
  6.       if rollOver(xxx + 2) and (value(ragman) <> xxx) then
  7.         puppetSprite(ragman + 2, 0)
  8.         if the number of cast ("b" & ragman) > 0 then
  9.           set the castNum of sprite (ragman + 2) to the number of cast ("b" & ragman)
  10.         end if
  11.         set ragman to xxx
  12.         set ragid to the number of cast ("b" & ragman)
  13.         puppetSprite(xxx + 2, 1)
  14.         set the castNum of sprite (xxx + 2) to the number of cast ("b" & ragman & "a")
  15.         updateStage()
  16.       end if
  17.     end repeat
  18.   end if
  19.   if the mouseDown and not rollOver(1) then
  20.     set stay to 0
  21.     puppetSound(0)
  22.     sound stop 1
  23.     sound stop 2
  24.     forget(window "pagebar")
  25.   end if
  26. end
  27.